Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue52/System/UFileSys.dfm/UFileSys.txt

Text File | 1999-10-29 | 4.3 KB | 232 lines

object Form1: TForm1
  Left = 312
  Top = 141
  BorderStyle = bsDialog
  Caption = 'FileSystem Testbed'
  ClientHeight = 180
  ClientWidth = 739
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 65
    Height = 13
    Caption = 'Current Drive:'
    FocusControl = DriveList
  end
  object VolSize: TLabel
    Left = 8
    Top = 40
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'VolSize'
  end
  object VolName: TLabel
    Left = 8
    Top = 60
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'VolName'
  end
  object FSystem: TLabel
    Left = 8
    Top = 80
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'FSystem'
  end
  object SerNum: TLabel
    Left = 8
    Top = 100
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'SerNum'
  end
  object DrvType: TLabel
    Left = 8
    Top = 120
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'DrvType'
  end
  object FreeSp: TLabel
    Left = 8
    Top = 140
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'FreeSp'
  end
  object Bevel1: TBevel
    Left = 248
    Top = 10
    Width = 2
    Height = 165
    Shape = bsLeftLine
  end
  object Label2: TLabel
    Left = 260
    Top = 36
    Width = 59
    Height = 13
    Caption = 'Sub-Folders:'
    FocusControl = FolderList
  end
  object Label16: TLabel
    Left = 260
    Top = 12
    Width = 69
    Height = 13
    Caption = 'Current Folder:'
  end
  object FileCount: TLabel
    Left = 256
    Top = 133
    Width = 44
    Height = 13
    Caption = 'FileCount'
  end
  object TotFileSize: TLabel
    Left = 256
    Top = 152
    Width = 52
    Height = 13
    Caption = 'TotFileSize'
  end
  object DriveList: TComboBox
    Left = 80
    Top = 8
    Width = 153
    Height = 21
    Style = csDropDownList
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 0
    OnChange = DriveListChange
  end
  object FolderList: TComboBox
    Left = 337
    Top = 32
    Width = 176
    Height = 21
    Style = csDropDownList
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 1
    OnChange = FolderListChange
  end
  object CurFolder: TEdit
    Left = 336
    Top = 8
    Width = 393
    Height = 21
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyPress = CurFolderKeyPress
  end
  object GroupBox1: TGroupBox
    Left = 256
    Top = 61
    Width = 153
    Height = 60
    Caption = 'File Attributes '
    TabOrder = 3
    object cbHidden: TCheckBox
      Tag = 1
      Left = 8
      Top = 32
      Width = 57
      Height = 17
      Caption = 'Hidden'
      TabOrder = 0
      OnClick = cbReadOnlyClick
    end
    object cbSystem: TCheckBox
      Tag = 2
      Left = 88
      Top = 16
      Width = 57
      Height = 17
      Caption = 'System'
      TabOrder = 1
      OnClick = cbReadOnlyClick
    end
    object cbReadOnly: TCheckBox
      Left = 8
      Top = 16
      Width = 73
      Height = 17
      Caption = 'Read-Only'
      TabOrder = 2
      OnClick = cbReadOnlyClick
    end
    object cbArchive: TCheckBox
      Tag = 3
      Left = 88
      Top = 32
      Width = 57
      Height = 17
      Caption = 'Archive'
      TabOrder = 3
      OnClick = cbReadOnlyClick
    end
  end
  object FileList: TListBox
    Left = 520
    Top = 32
    Width = 209
    Height = 145
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 4
  end
  object Button1: TButton
    Left = 420
    Top = 80
    Width = 89
    Height = 25
    Caption = 'Folder Size...'
    TabOrder = 5
    OnClick = Button1Click
  end
end